home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 451-475 / disk_458 / texify / texprint.ced < prev   
Text File  |  1992-05-06  |  2KB  |  61 lines
  1. /********************************************************************************/
  2. /* ARexx program         TeXPrint  V 1.10 (Oct 90)            */
  3. /*                                        */
  4. /*              This  ARexx  program prints the .dvi file of        */
  5. /*              your  activ text in CEDPro.  There has to be        */
  6. /*              a  .dvi  file  in the same directory of your        */
  7. /* Copyright 1990      TeX  source.   For  generating the .dvi file        */
  8. /* by Wolf-Juergen Faust  see  the  additional  readme and ARexx files        */
  9. /* Am Dorfgarten 10      which you MUST get with this program.  For a        */
  10. /* W-6000 Frankfurt 50      new TeXify version call FIDO +(49) 6173 2544        */
  11. /* Germany                      (HST DS) or contact me...            */
  12. /* FIDO: 2:243/43.5 (Wolf Faust)                        */
  13. /* UUCP: cbmvax.commodore.com!cbmehq!cbmger!venus!wfaust            */
  14. /* Tel: +(49) 69 5486556                            */
  15. /*                                        */
  16. /*    YOU MUST ADOPT THE FIRST TWO COMMANDS TO YOUR ENVIRONMENT !!!!!!!!!!!!    */
  17. /*    ======================================================================    */
  18. /*      (See the readme and ARexx files you MUST get with this file!)        */
  19. /*                                        */
  20. /* Versions needed:                                */
  21. /* ARexx >= V 1.10  (tested: 1.10, 1.12, 1.14)                    */
  22. /* CEDPro>= V 2.00  (tested: 2.10, 2.11, 2.12)                    */
  23. /********************************************************************************/
  24.  
  25.  
  26. /* You MUST adopt the following two commands to your environment:         */
  27. TeXy = 'c:echo >t:tex4 "c:run tex:c/dvilq -qE -opar: '
  28. TeXy2 = '"'||'0A'X'c:echo >t:tex5 "c:endcli"'|| '0A'X || 'c:join t:tex4 t:tex5 to t:tex6' || '0A'X ||'c:newshell CON:0/11/640/100/Press_CTRL-C_to_close from t:tex6'
  29.  
  30.  
  31.  
  32.  
  33.  
  34. /*** START ***/
  35. /*** I need answers from CygnusEd ***/
  36. options results
  37.  
  38. /*** Hey Ced ! I have to talk with you ! ***/
  39. address 'rexx_ced'
  40.  
  41. /***  path and activ filename, tough: maybe part of path is missing !!!  ***/
  42. status 19
  43. fullsrc = result
  44. last = lastpos(':',fullsrc)
  45.  
  46. /*** current dir maybe needed for joining with incomplete path ***/
  47. status 75
  48. if last = 0 then fullsrc = result||fullsrc
  49.  
  50. /*** cut suffix ***/
  51. fullsrc = left(fullsrc,lastpos('.',fullsrc)-1)
  52.  
  53. /*** is there a .dvi file ? ***/
  54. if ~exists(fullsrc||".dvi") then do
  55.     okay1 "There is no .dvi file: " '0A'X || fullsrc ||".dvi" '0A'X ||"Use TeXify to generate a .dvi file !"
  56.     exit
  57.     end
  58.  
  59. /* now lets start the command given by the user and bring back the CED screen */
  60. address command texy||fullsrc||texy2
  61.